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FACILITY: FI1IACP Structure Level 1 

i ABSTRACT: 


This routine converts a RAD-50 file name block into the 
equivalent ASCII name string. 


i ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 
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1 : i MODIFIED BY: 

§ 5 v03-002 CDS0001 Christian D. Saether 4-May-1983 
? 5 Make decriptor pic. 
5 3 v03-001 ACG0302 Andrew C. Goldstein 3-Dec-1982 11:30 | 
§ be Add support for $ and _ chars in file names 


1f-}eo- 94 9B:93:88 PPA Uw GAASTeR sch 11%. one omaxstR.032:1°%° | 


H v02-001 ArG0186 Andrew C. Goldstein, 46-Feb-1981 21:19 
; Fix garbage in high word of returned Length 
i v02=000 ACG0167 Andrew C. Goldstein 16-Apr-1980 19:27 
Previous revision history moved to f11B8.REV 
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LIBRARY a SESSL PORARY #1 18,L52"s 
REQUIRE ‘SRCS$:FCPDEF .B32'; 
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GLOBAL ROUTINE MAKE_STRING (NAMEBLOCK, STRING) = 
‘oe 
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; FUNCTIONAL DESCRIPTION: 


i routine converts a RAD-50 file name block into the 
valent ASCII name string. 


et 
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| 
i CALLING SEQUENCE: 
i MAKE_STRING (ARG1, ARG2) 


i INPUT PARAMETERS 
; ARG1: address of file name block 


i IMPLICIT INPUTS: 
i NONE 


ARG2: address of buffer for string 
i IMPLICIT OUTPUTS: 
4 NONE 
i ROUTINE VALUE: 
: length of string generated 
i SIDE EFFECTS: 
' NONE 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
} OUTPUT PARAMETERS: 
! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


© 00 09 00 GD CD CD CD ADC 
5 


90 
34 
098 NAMEBLOCK : REF BBLOCK, oye, block argument 
: STRING : REF VECTOR C, BYTE ! string buffer arg 
LOCAL 
BLOCKP : ner vec toe p-¥ORD}. ! pointer into name block 
STRINGP : VECTOR { t painter into strin 
CHARS : VECTOR BYTE) ho ding place for characters 
MaT t TOR j. ‘FAO control str ng descriptor 
STRINGD TOR i string descriptor for FAO 
BIND 
DELIMITER = UPLIT BYTE (' ;.°) 
: VECTOR C,BYTE]; ! type and version delimiters | 


! Set up the pointers. Then start .o the outer loop, which iterates 
: over mame and type fields. 
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BLOCKP = NAMEBLOCK(NMBSW_NAME); 
STRINGP = .STRING; 
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! 
i There are 3 words 
H the 5 RAD-50 chara 


DECR I FROM (IF 


5 BEGIN 

CHARS 

CHARS 
4 
41 i in the string buff 
4g i 
4 
44 INCR J FROM 
45 IF .CHAR 
46 THEN 
4 BEG! 
STRI 
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END; 
BLOCKP = .BL 
END; 


INGP{O) = .DE 
NGP = .STRIN 
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Nope 
C(t! R 
ORMAT, STRING 
RETURN .STRINGP + .S 


1} = creas 


me a aa a a a ak a a a ad a td a “ad = wd “a 4 4 as a = 


VISSSNVSARANLSSSLSTFERLIS 


ee ee ee a a a dd a dd td od 2d wd td wd = 
me a me ed ed a od ed td dd dd 8 td wd 8d od 


PIPPI IAIN IPNRA BLVD. DPA AAA AAA BEEBE EEE PAA A 


FORMA 


1320-1986 09:44:56 


DECR K FROM 2 TO 1 DO 
BEGIN 


The next | iterates over the RAD-50 words in the name block. 


for name, 1 for type. Expand each word into 
cters. 


-K THEN 1 ELSE 3) TO 1 DO 


CHARS 9 = .BLOCKP / (40*40); 
= ,BLOCKPL0)/40 we 40; 
2] = .BLOCKP MOD 40; 

! Now convert each character into the correct ASCII code and store it 


er if it is not null. 


0 10 2 DO 
SC.J] NEQ 0 


F 
HEN . CHAR = T+ tA! 
ELSE [f .CHARSC.J3 EOL 27 


ELSE JF, .CHARSC.J3 EOL 28 
ELSE IF .CHARSC.JJ EQL 29 
ELSE .CHARSC.J] - 30 + ‘O° 


pCnenst 542 s 27 
SC.J 


);: 
STRINGP = .STRINGP + 1; 


OCKP + 2; ! move to next word 
! end of word loop 


At the end of each field, insert the appropriate field delimiter. 


LIMITERC.KI; 
GP + 1; 
! end of outer loop 


byiie a descriptor for the remainder of the string buffer and 


t the version number. 


Pp: 
1); 
DCO), STRINGDCO), .BLOCKP(O)); 


TRINGD(CO) = .STRING; ! final byte count 
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1 END; 
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! end of routine MAKE_STRING 
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MAKSTR 
\v04-000\ 
SCODES ,NOWRT,2 
y geN 
\!SW\<0> 
P.AAA 
SYSSFAO 
MAKE_STRING, Save R2,R3,R4,R5,R6 
#20, SP 
#6, NAMEBLOCK, BLOCKP 


6 
STRING, STRINGP 
#2, « 


#3, R6 


#46, 
R1, CHARS+2 


CHARSCJJ, R3 
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; Routine Size: 
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File 


Library Statistics 
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Loaded 
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SCODES + 0008 
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Attributes 
EXE,NOSHR, LCL, 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: thi F11X.SRCIMAKSTR.B32; 1 


aol #18, R3 

MO » (STRINGP) + 
AOBLEGQ ; 5 

ADDL2 #2, BLOCKP 
SOBGTR I, 4 

MOVB DEL Imi TERCK, (STRINGP) + 
SOBGTR kK, 13 

BRB 14$ 

BRW 1$ 

MOVL #6, STRI 

MOVL STRINGP STRINGD +4 
MOVL #3, FORMA 
MOVAB P.AAB, FORMAT+4 
MOVZWL (BLOCKP), =(SP) 
PUSHAB STRINGD 

PUSHAB STRINGD 

PUSHAB FOR MAT 

CALLS #4, SYSSFAO 
ADDL STRINGD D, R2 
SUBL » R2 
MOVL . 

RET 


REL, CON,NOPIC,ALIGN(2) 


eocceccce Pages Processing 
Percent Mapped Time 
0 1000 00:01.8 
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MAT\ 
v04- 
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